home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.04 Apr 91 / Code Optimizing / Sources / Dummy.f.opt1.a < prev    next >
Encoding:
Text File  |  1990-04-26  |  4.9 KB  |  241 lines  |  [TEXT/MPS ]
  1. ;    Assembler source from Language Systems FORTRAN (Version 2.0 January 23, 1990)
  2. ;    Fri, Apr 13, 1990   21:59
  3. ;    Optimization Level 1.
  4.  
  5. ;  Floating-point operations have been commented out.
  6.  
  7.         BLANKS ON
  8.         STRING ASIS
  9.         PRINT OFF
  10.         INCLUDE 'Traps.a'
  11.         INCLUDE 'ToolEqu.a'
  12.         INCLUDE 'QuickEqu.a'
  13.         INCLUDE 'SysEqu.a'
  14.         INCLUDE 'SANEMacs.a'
  15.         PRINT ON
  16.  
  17.  ;  File "Mxmpy.f";  Line          1
  18.         SEG    'Mxmpy'
  19. DUMMY    PROC EXPORT
  20.         LINK    A6,#$FFFFFF44
  21.         MOVEM.L    D5-D7,-(SP)
  22.  ;  File "Mxmpy.f";  Line         17
  23.         BRA        L10002
  24. L10001    EQU    *
  25.         MOVE.L    #$00000001,$FFFFFFAC(A6)
  26.         MOVEA.L    $0010(A6),A0
  27.         MOVE.L    (A0),$FFFFFFB0(A6)
  28.         MOVE.L    #$0000000A,$FFFFFF64(A6)
  29.         MOVEA.L    $0010(A6),A0
  30.         MOVE.L    (A0),D0
  31.         ADD.L    D0,D0
  32.         MOVE.L    D0,D1
  33.         ASL.L    #2,D0
  34.         ADD.L    D1,D0
  35.         MOVE.L    D0,$FFFFFF64(A6)
  36.         MOVE.L    $FFFFFF64(A6),$FFFFFFB4(A6)
  37.         MOVE.L    #$00000001,$FFFFFFB8(A6)
  38.         MOVEA.L    $000C(A6),A0
  39.         MOVE.L    (A0),$FFFFFFBC(A6)
  40.         MOVE.L    $FFFFFFB4(A6),$FFFFFF64(A6)
  41.         MOVEA.L    $000C(A6),A0
  42.         MOVE.L    $FFFFFF64(A6),D1
  43.         EXG        D0,D1
  44.         MOVE.L    D1,-(SP)
  45.         MOVE.L    (A0),D1
  46.         IMPORT    F_IMUL
  47.         JSR        F_IMUL
  48.         MOVE.L    (SP)+,D1
  49.         EXG        D0,D1
  50.         MOVE.L    D1,$FFFFFF64(A6)
  51.         MOVE.L    $FFFFFF64(A6),$FFFFFFC0(A6)
  52.         MOVE.L    #$00000001,$FFFFFFC4(A6)
  53.         MOVEA.L    $000C(A6),A0
  54.         MOVE.L    (A0),$FFFFFFC8(A6)
  55.         MOVE.L    #$0000000A,$FFFFFF6C(A6)
  56.         MOVEA.L    $000C(A6),A0
  57.         MOVE.L    (A0),D0
  58.         ADD.L    D0,D0
  59.         MOVE.L    D0,D1
  60.         ASL.L    #2,D0
  61.         ADD.L    D1,D0
  62.         MOVE.L    D0,$FFFFFF6C(A6)
  63.         MOVE.L    $FFFFFF6C(A6),$FFFFFFCC(A6)
  64.         MOVE.L    #$00000001,$FFFFFFD0(A6)
  65.         MOVEA.L    $0008(A6),A0
  66.         MOVE.L    (A0),$FFFFFFD4(A6)
  67.         MOVE.L    $FFFFFFCC(A6),$FFFFFF6C(A6)
  68.         MOVEA.L    $0008(A6),A0
  69.         MOVE.L    $FFFFFF6C(A6),D1
  70.         EXG        D0,D1
  71.         MOVE.L    D1,-(SP)
  72.         MOVE.L    (A0),D1
  73.         IMPORT    F_IMUL
  74.         JSR        F_IMUL
  75.         MOVE.L    (SP)+,D1
  76.         EXG        D0,D1
  77.         MOVE.L    D1,$FFFFFF6C(A6)
  78.         MOVE.L    $FFFFFF6C(A6),$FFFFFFD8(A6)
  79.         MOVE.L    #$00000001,$FFFFFFDC(A6)
  80.         MOVEA.L    $0010(A6),A0
  81.         MOVE.L    (A0),$FFFFFFE0(A6)
  82.         MOVE.L    #$0000000A,$FFFFFF74(A6)
  83.         MOVEA.L    $0010(A6),A0
  84.         MOVE.L    (A0),D0
  85.         ADD.L    D0,D0
  86.         MOVE.L    D0,D1
  87.         ASL.L    #2,D0
  88.         ADD.L    D1,D0
  89.         MOVE.L    D0,$FFFFFF74(A6)
  90.         MOVE.L    $FFFFFF74(A6),$FFFFFFE4(A6)
  91.         MOVE.L    #$00000001,$FFFFFFE8(A6)
  92.         MOVEA.L    $0008(A6),A0
  93.         MOVE.L    (A0),$FFFFFFEC(A6)
  94.         MOVE.L    $FFFFFFE4(A6),$FFFFFF74(A6)
  95.         MOVEA.L    $0008(A6),A0
  96.         MOVE.L    $FFFFFF74(A6),D1
  97.         EXG        D0,D1
  98.         MOVE.L    D1,-(SP)
  99.         MOVE.L    (A0),D1
  100.         IMPORT    F_IMUL
  101.         JSR        F_IMUL
  102.         MOVE.L    (SP)+,D1
  103.         EXG        D0,D1
  104.         MOVE.L    D1,$FFFFFF74(A6)
  105.         MOVE.L    $FFFFFF74(A6),$FFFFFFF0(A6)
  106.         RTS
  107. L10002    EQU    *
  108.         BSR        L10001
  109.  ;  File "Mxmpy.f";  Line         18
  110.         MOVE.L    #$00000001,$FFFFFFA0(A6)
  111.         MOVEA.L    $0010(A6),A1
  112.         MOVE.L    (A1),D5
  113.         BLE        L10004
  114. L10003    EQU    *
  115.  ;  File "Mxmpy.f";  Line         19
  116.         MOVE.L    #$00000001,$FFFFFFA4(A6)
  117.         MOVEA.L    $0008(A6),A1
  118.         MOVE.L    (A1),D6
  119.         BLE        L10006
  120. L10005    EQU    *
  121.  ;  File "Mxmpy.f";  Line         20
  122.         LEA        $FFFFFFF4(A6),A1
  123.         CLR.L    (A1)+
  124.         CLR.L    (A1)+
  125.         CLR.W    (A1)+
  126.  ;  File "Mxmpy.f";  Line         21
  127.         MOVE.L    #$00000001,$FFFFFFA8(A6)
  128.         MOVEA.L    $000C(A6),A1
  129.         MOVE.L    (A1),D7
  130.         BLE        L10008
  131. L10007    EQU    *
  132.  ;  File "Mxmpy.f";  Line         22
  133.         MOVE.L    $FFFFFFA0(A6),D1
  134.         SUB.L    $FFFFFFAC(A6),D1
  135.         ADD.L    D1,D1
  136.         MOVE.L    D1,D0
  137.         ASL.L    #2,D1
  138.         ADD.L    D0,D1
  139.         MOVE.L    $FFFFFFA8(A6),D2
  140.         SUB.L    $FFFFFFB8(A6),D2
  141.         EXG        D0,D2
  142.         MOVE.L    D1,-(SP)
  143.         MOVE.L    $FFFFFFB4(A6),D1
  144.         IMPORT    F_IMUL
  145.         JSR        F_IMUL
  146.         MOVE.L    (SP)+,D1
  147.         EXG        D0,D2
  148.         ADD.L    D1,D2
  149.         MOVE.L    D2,$FFFFFF60(A6)
  150.         MOVE.L    $FFFFFFA8(A6),D1
  151.         SUB.L    $FFFFFFC4(A6),D1
  152.         ADD.L    D1,D1
  153.         MOVE.L    D1,D0
  154.         ASL.L    #2,D1
  155.         ADD.L    D0,D1
  156.         MOVE.L    $FFFFFFA4(A6),D2
  157.         SUB.L    $FFFFFFD0(A6),D2
  158.         EXG        D0,D2
  159.         MOVE.L    D1,-(SP)
  160.         MOVE.L    $FFFFFFCC(A6),D1
  161.         IMPORT    F_IMUL
  162.         JSR        F_IMUL
  163.         MOVE.L    (SP)+,D1
  164.         EXG        D0,D2
  165.         ADD.L    D1,D2
  166.         MOVE.L    D2,$FFFFFF64(A6)
  167.         MOVEA.L    $0018(A6),A1
  168.         ADDA.L    $FFFFFF64(A6),A1
  169. ;        MOVE.L    A1,-(SP)
  170.         MOVEA.L    $001C(A6),A0
  171.         ADDA.L    $FFFFFF60(A6),A0
  172.         LEA        $FFFFFF78(A6),A1
  173. ;        MOVE.L    A1,-(SP)
  174.         MOVE.L    (A0)+,(A1)+
  175.         MOVE.L    (A0)+,(A1)+
  176.         MOVE.W    (A0)+,(A1)+
  177. ;        MOVE.W    #FOMUL,-(SP)
  178. ;        _FP68K
  179. ;        PEA        $FFFFFF78(A6)
  180. ;        PEA        $FFFFFFF4(A6)
  181. ;        MOVE.W    #FOADD,-(SP)
  182. ;        _FP68K
  183.  ;  File "Mxmpy.f";  Line         23
  184.         ADDQ.L    #1,$FFFFFFA8(A6)
  185.         SUBQ.L    #1,D7
  186.         BGT        L10007
  187. L10008    EQU    *
  188.  ;  File "Mxmpy.f";  Line         24
  189.         MOVE.L    $FFFFFFA0(A6),D1
  190.         SUB.L    $FFFFFFDC(A6),D1
  191.         ADD.L    D1,D1
  192.         MOVE.L    D1,D0
  193.         ASL.L    #2,D1
  194.         ADD.L    D0,D1
  195.         MOVE.L    $FFFFFFA4(A6),D2
  196.         SUB.L    $FFFFFFE8(A6),D2
  197.         EXG        D0,D2
  198.         MOVE.L    D1,-(SP)
  199.         MOVE.L    $FFFFFFE4(A6),D1
  200.         IMPORT    F_IMUL
  201.         JSR        F_IMUL
  202.         MOVE.L    (SP)+,D1
  203.         EXG        D0,D2
  204.         ADD.L    D1,D2
  205.         MOVE.L    D2,$FFFFFF84(A6)
  206.         LEA        $FFFFFFF4(A6),A0
  207.         MOVEA.L    $0014(A6),A1
  208.         ADDA.L    $FFFFFF84(A6),A1
  209.         MOVE.L    (A0)+,(A1)+
  210.         MOVE.L    (A0)+,(A1)+
  211.         MOVE.W    (A0)+,(A1)+
  212.  ;  File "Mxmpy.f";  Line         25
  213.         ADDQ.L    #1,$FFFFFFA4(A6)
  214.         SUBQ.L    #1,D6
  215.         BGT        L10005
  216. L10006    EQU    *
  217.  ;  File "Mxmpy.f";  Line         26
  218.         ADDQ.L    #1,$FFFFFFA0(A6)
  219.         SUBQ.L    #1,D5
  220.         BGT        L10003
  221. L10004    EQU    *
  222.  ;  File "Mxmpy.f";  Line         27
  223.         LEA        $0020(A6),A1
  224.         MOVEA.L    $0004(A6),A0
  225.         MOVEM.L    (SP)+,D5-D7
  226.         UNLK    A6
  227.         MOVEA.L A1,A7
  228.         JMP        (A0)
  229.  ;  File "Mxmpy.f";  Line         27
  230. PROCSTR    EQU    *
  231.         DC.W    $FFFF8006
  232.         DC.B    'MXMPY '
  233.         DC.W    $0000
  234. EXTDCONST    EQU        *
  235.         DC.W    $0000,$0000,$0000,$0000,$0000
  236.  
  237.         ENDPROC
  238.  
  239.  
  240.         END
  241.